home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #64 (1992-08-13)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #64 (1992-08-13)(Amiga User Gruppe Einzugsgebiet 4000).adf / TKEd / rexx / StripBlankLines.tked < prev   
Text File  |  1992-06-12  |  745b  |  26 lines
  1. /**
  2.  ** ARexx program to delete all blank lines of text 
  3.  **  
  4.  ** © Tom Kroener '92
  5.  **
  6.  **/
  7.  
  8. options results
  9. address 'TKEd.1'                /* Portname of the first started TKEd */
  10.  
  11. BeginOfFile                     /* Go to start */
  12. LastLine                        /* Get number of the last line */
  13. LastLineNr = result
  14.  
  15. LineNr = 0                      /* Counter for the lines */
  16. DO WHILE LineNr <= LastLineNr   /* Counts until it reaches the last line */
  17.   GetLineLen                    /* Returns the length of the current line */
  18.   IF result = 0                 /* If blank line then delete */
  19.     THEN DeleteLine
  20.     ELSE Cursor "DOWN"          /* Goto next line */
  21.   LineNr = LineNr + 1           /* Increment linecounter */
  22. END
  23.  
  24. EXIT 0
  25.  
  26.